home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / XCMDs⁄XFCN / Speed Scroller / Speed Scroller / cards.xml < prev    next >
Text File  |  1991-06-13  |  13KB  |  274 lines
  1. card_3028.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>3028</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2718</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3265.css" />
  12.     <part>
  13.         <id>1</id>
  14.         <type>button</type>
  15.         <visible> <true /> </visible>
  16.         <reserved5> 0 </reserved5>
  17.         <reserved4> 0 </reserved4>
  18.         <reserved3> 0 </reserved3>
  19.         <reserved2> 0 </reserved2>
  20.         <reserved1> 0 </reserved1>
  21.         <enabled> <true /> </enabled>
  22.         <rect>
  23.             <left>306</left>
  24.             <top>102</top>
  25.             <right>321</right>
  26.             <bottom>117</bottom>
  27.         </rect>
  28.         <style>transparent</style>
  29.         <showName> <false /> </showName>
  30.         <highlight> <false /> </highlight>
  31.         <autoHighlight> <false /> </autoHighlight>
  32.         <sharedHighlight> <true /> </sharedHighlight>
  33.         <family>0</family>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>29407</icon>
  36.         <textAlign>center</textAlign>
  37.         <font>Geneva</font>
  38.         <textSize>12</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <name>Sizer</name>
  41.         <script>on mouseDownlock screen  -- comment this out to see what's really going on...get growBox (the clickLoc,"¬© Jeff Winkler","304,116,800,1000")set the rect of this cd to it  -- this will send a sizeWindow messageset the loc of cd window to item 1 of it,item 2 of itend mouseDown</script>
  42.     </part>
  43.     <part>
  44.         <id>3</id>
  45.         <type>field</type>
  46.         <visible> <true /> </visible>
  47.         <dontWrap> <false /> </dontWrap>
  48.         <dontSearch> <false /> </dontSearch>
  49.         <sharedText> <false /> </sharedText>
  50.         <fixedLineHeight> <false /> </fixedLineHeight>
  51.         <autoTab> <false /> </autoTab>
  52.         <lockText> <true /> </lockText>
  53.         <rect>
  54.             <left>13</left>
  55.             <top>13</top>
  56.             <right>307</right>
  57.             <bottom>14</bottom>
  58.         </rect>
  59.         <style>opaque</style>
  60.         <autoSelect> <false /> </autoSelect>
  61.         <showLines> <false /> </showLines>
  62.         <wideMargins> <false /> </wideMargins>
  63.         <multipleLines> <false /> </multipleLines>
  64.         <reservedFamily> 0 </reservedFamily>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>left</textAlign>
  68.         <font>Geneva</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <textHeight>16</textHeight>
  72.         <name>t1432</name>
  73.         <script>--shadow</script>
  74.     </part>
  75.     <part>
  76.         <id>4</id>
  77.         <type>field</type>
  78.         <visible> <true /> </visible>
  79.         <dontWrap> <false /> </dontWrap>
  80.         <dontSearch> <false /> </dontSearch>
  81.         <sharedText> <false /> </sharedText>
  82.         <fixedLineHeight> <false /> </fixedLineHeight>
  83.         <autoTab> <false /> </autoTab>
  84.         <lockText> <true /> </lockText>
  85.         <rect>
  86.             <left>13</left>
  87.             <top>13</top>
  88.             <right>14</right>
  89.             <bottom>102</bottom>
  90.         </rect>
  91.         <style>opaque</style>
  92.         <autoSelect> <false /> </autoSelect>
  93.         <showLines> <false /> </showLines>
  94.         <wideMargins> <false /> </wideMargins>
  95.         <multipleLines> <false /> </multipleLines>
  96.         <reservedFamily> 0 </reservedFamily>
  97.         <titleWidth>0</titleWidth>
  98.         <icon>0</icon>
  99.         <textAlign>left</textAlign>
  100.         <font>Geneva</font>
  101.         <textSize>12</textSize>
  102.         <textStyle>plain</textStyle>
  103.         <textHeight>16</textHeight>
  104.         <name>l1432</name>
  105.         <script>--shadow</script>
  106.     </part>
  107.     <part>
  108.         <id>5</id>
  109.         <type>field</type>
  110.         <visible> <true /> </visible>
  111.         <dontWrap> <false /> </dontWrap>
  112.         <dontSearch> <false /> </dontSearch>
  113.         <sharedText> <false /> </sharedText>
  114.         <fixedLineHeight> <false /> </fixedLineHeight>
  115.         <autoTab> <false /> </autoTab>
  116.         <lockText> <true /> </lockText>
  117.         <rect>
  118.             <left>306</left>
  119.             <top>13</top>
  120.             <right>308</right>
  121.             <bottom>104</bottom>
  122.         </rect>
  123.         <style>rectangle</style>
  124.         <autoSelect> <false /> </autoSelect>
  125.         <showLines> <false /> </showLines>
  126.         <wideMargins> <false /> </wideMargins>
  127.         <multipleLines> <false /> </multipleLines>
  128.         <reservedFamily> 0 </reservedFamily>
  129.         <titleWidth>0</titleWidth>
  130.         <icon>0</icon>
  131.         <textAlign>left</textAlign>
  132.         <font>Geneva</font>
  133.         <textSize>12</textSize>
  134.         <textStyle>plain</textStyle>
  135.         <textHeight>16</textHeight>
  136.         <name>r1432</name>
  137.         <script>--shadow</script>
  138.     </part>
  139.     <part>
  140.         <id>6</id>
  141.         <type>field</type>
  142.         <visible> <true /> </visible>
  143.         <dontWrap> <false /> </dontWrap>
  144.         <dontSearch> <false /> </dontSearch>
  145.         <sharedText> <false /> </sharedText>
  146.         <fixedLineHeight> <false /> </fixedLineHeight>
  147.         <autoTab> <false /> </autoTab>
  148.         <lockText> <true /> </lockText>
  149.         <rect>
  150.             <left>13</left>
  151.             <top>102</top>
  152.             <right>307</right>
  153.             <bottom>104</bottom>
  154.         </rect>
  155.         <style>rectangle</style>
  156.         <autoSelect> <false /> </autoSelect>
  157.         <showLines> <false /> </showLines>
  158.         <wideMargins> <false /> </wideMargins>
  159.         <multipleLines> <false /> </multipleLines>
  160.         <reservedFamily> 0 </reservedFamily>
  161.         <titleWidth>0</titleWidth>
  162.         <icon>0</icon>
  163.         <textAlign>left</textAlign>
  164.         <font>Geneva</font>
  165.         <textSize>12</textSize>
  166.         <textStyle>plain</textStyle>
  167.         <textHeight>16</textHeight>
  168.         <name>b1432</name>
  169.         <script>--shadow</script>
  170.     </part>
  171.     <part>
  172.         <id>9</id>
  173.         <type>button</type>
  174.         <visible> <true /> </visible>
  175.         <reserved5> 0 </reserved5>
  176.         <reserved4> 0 </reserved4>
  177.         <reserved3> 0 </reserved3>
  178.         <reserved2> 0 </reserved2>
  179.         <reserved1> 0 </reserved1>
  180.         <enabled> <true /> </enabled>
  181.         <rect>
  182.             <left>17</left>
  183.             <top>17</top>
  184.             <right>50</right>
  185.             <bottom>46</bottom>
  186.         </rect>
  187.         <style>transparent</style>
  188.         <showName> <false /> </showName>
  189.         <highlight> <false /> </highlight>
  190.         <autoHighlight> <false /> </autoHighlight>
  191.         <sharedHighlight> <true /> </sharedHighlight>
  192.         <family>0</family>
  193.         <titleWidth>0</titleWidth>
  194.         <icon>6835</icon>
  195.         <textAlign>center</textAlign>
  196.         <font>Chicago</font>
  197.         <textSize>12</textSize>
  198.         <textStyle>plain</textStyle>
  199.         <name>splashIcon</name>
  200.         <script></script>
  201.     </part>
  202.     <part>
  203.         <id>14</id>
  204.         <type>button</type>
  205.         <visible> <true /> </visible>
  206.         <reserved5> 0 </reserved5>
  207.         <reserved4> 0 </reserved4>
  208.         <reserved3> 0 </reserved3>
  209.         <reserved2> 0 </reserved2>
  210.         <reserved1> 0 </reserved1>
  211.         <enabled> <true /> </enabled>
  212.         <rect>
  213.             <left>287</left>
  214.             <top>16</top>
  215.             <right>304</right>
  216.             <bottom>32</bottom>
  217.         </rect>
  218.         <style>transparent</style>
  219.         <showName> <false /> </showName>
  220.         <highlight> <false /> </highlight>
  221.         <autoHighlight> <false /> </autoHighlight>
  222.         <sharedHighlight> <true /> </sharedHighlight>
  223.         <family>0</family>
  224.         <titleWidth>0</titleWidth>
  225.         <icon>11296</icon>
  226.         <textAlign>center</textAlign>
  227.         <font>Chicago</font>
  228.         <textSize>12</textSize>
  229.         <textStyle>plain</textStyle>
  230.         <name>up</name>
  231.         <script>on mouseDown--‚Ä¢ replace k_fieldName() with the name of your field...set the icon of me to "In ScrollUp"set the scroll of fld k_fieldName() to ¬¨fastScroll (k_fieldName(),"up",scrollAmount(),"¬© Jeff Winkler")go cd  -- this is necessary.idlewait until the mouse is upset the icon of me to "ScrollUp"end mouseDown</script>
  232.     </part>
  233.     <part>
  234.         <id>17</id>
  235.         <type>button</type>
  236.         <visible> <true /> </visible>
  237.         <reserved5> 0 </reserved5>
  238.         <reserved4> 0 </reserved4>
  239.         <reserved3> 0 </reserved3>
  240.         <reserved2> 0 </reserved2>
  241.         <reserved1> 0 </reserved1>
  242.         <enabled> <true /> </enabled>
  243.         <rect>
  244.             <left>287</left>
  245.             <top>84</top>
  246.             <right>304</right>
  247.             <bottom>100</bottom>
  248.         </rect>
  249.         <style>transparent</style>
  250.         <showName> <false /> </showName>
  251.         <highlight> <false /> </highlight>
  252.         <autoHighlight> <false /> </autoHighlight>
  253.         <sharedHighlight> <true /> </sharedHighlight>
  254.         <family>0</family>
  255.         <titleWidth>0</titleWidth>
  256.         <icon>5704</icon>
  257.         <textAlign>center</textAlign>
  258.         <font>Chicago</font>
  259.         <textSize>12</textSize>
  260.         <textStyle>plain</textStyle>
  261.         <name>down</name>
  262.         <script>on mouseDown--‚Ä¢ replace k_fieldName() with the name of your field...set the icon of me to "In ScrollDown"hide cd btn splashIcon  --‚Ä¢ for demo purposes only.set the scroll of fld k_fieldName() to ¬¨fastScroll (k_fieldName(),"down",scrollAmount(),"¬© Jeff Winkler")set the icon of me to "ScrollDown"go cd  -- this is necessary.end mouseDown</script>
  263.     </part>
  264.     <content>
  265.         <layer>background</layer>
  266.         <id>2</id>
  267.         <text><span class="style12">        </span><span class="style7">FastScroll  XFCN</span><span class="style1"></span><span class="style8">            ¬© Jeff Winkler, 1991. All rights reserved.</span><span class="style3">  FastScroll was written out of frustration with Hypercard 2's slow text scrolling. It's not perfect, but the speed fiends (you know who you are...) may appreciate it.  Command-Tab will toggle between normal and fast scroll bars.Fastscroll returns a new scroll value for the field. It takes the following params:fastScroll (fldName,direction,amount,"¬© Jeff Winkler")where:fldName is the name of a background field.  I wanted to keep it simple.Direction is "up" or "down".Amount is the number of pixels to scroll by.CopyrightString is option g+space+"Jeff Winkler" After changing the scroll of the field, you will need to do a ‚Äúgo card‚Äù, to force Hypercard to remember the scroll.  Trust me, it's necessary.fastScroll can scroll by an arbitrary amount.  I usually use the lineheight of the field or a multiple thereof.  To try out the different speeds, change the value returned by the scrollAmount function on this card.  The two scrollbars are actually card buttons; I've made the arrows different in order to indicate that they are supercharged.  Feel free to edit these icons (though you may want to make a copy first.)  The 3d scroll arrows are entirely optional, and are only used to differentiate them from normal scroll arrows.  If you've got better ones, I'd like to see them!  There are at least two known user-interface problems with fastScroll. The first is that there is no ‚Äúthumb‚Äù to indicate where you are in the field. The other is the fastScroll will scroll beyond the bottom of a field, because it doesn't know where the bottom actually is.  Both these problems are due to a quirk in the way Hypercard handles text, and may be fixed in later versions.  Because of these problems, please use fastScroll only for personal stacks or as a ‚Äúpower user‚Äù option in stacks for others.  From a user-interface viewpoint, it's not the greatest. I've decided to release it nonetheless because text is too slow even on an SE/30... I hate to think about the speed of a Mac Plus!</span><span class="style11">Licensing</span><span class="style3">  fastScroll is free for private use, but commerical use must be registered with the author.  This includes in-house projects.  License includes future upgrades at minimal cost. Licensing fees are as follows:Unlimited use in a single commercial product: $100Unlimited use in multiple commercial products: $175</span><span class="style11">Contact Information</span><span class="style3">AOL: winkler1Applelink: D6818Permanent Address:Jeff WinklerAttn: LicensingRfd #1Claremont, NH 03743</span><span class="style11">Distribution</span><span class="style3">This stack may be distributed by online services and user groups holding regular public meetings. Other organizations must request permission to distribute.  Educorp is specifically prohibited from distributing this stack.</span></text>
  268.     </content>
  269.     <name></name>
  270.     <script>function scrollAmountreturn 16end scrollAmountfunction k_fieldNamereturn "body"end k_fieldNameon opencardset the scroll of fld 1 to 0show cd btn splashIconend opencardon sizeWindow--‚Ä¢ resize the buttons and fields.--‚Ä¢ 3D frame created with Shadow Boxer by JW--‚Ä¢ the mouseDown handler has locked the screen for us.put item 3 of rect of this cd into newWidthput item 4 of rect of this cd into newHeightset the bottomRight of cd btn "sizer" to newWidth+1,newHeight+1set the rect of cd fld "t1432" to 13,13,newWidth-13,14set the rect of cd fld "l1432" to 13,13,14,newHeight-14set the rect of cd fld "b1432" to 13,newHeight-14,newWidth-13,newHeight-12set the rect of cd fld "r1432" to newWidth-14,13,newWidth-12,newHeight-12set the rect of fld k_fieldName() to 16,16,newWidth-16,newHeight-16set the rect of cd btn "up" to newWidth-33,16,newWidth-16,32set the rect of cd btn "down" to newWidth-33,newHeight-32,newWidth-16,newHeight-16end sizeWIndowon idleget (the scroll of fld 1=0)if the visible of cd btn splashIcon‚â†it then set the visible of cd btn splashIcon to itend idleon showStuff boolset the visible of cd btn splashIcon to boolset the visible of cd btn splashIcon to boolset the visible of cd btn splashIcon to boolset the visible of cd btn splashIcon to boolend showStuffon commandKeyDown theKeyif theKey=tab then toggleFastArrowspass commandKeyDownend commandKeyDownon toggleFastArrowsget the visible of cd btn "up"if it thenhide cd btn "up"hide cd btn "down"elseshow cd btn "up" at the right of fld k_fieldName()-9,the top of fld k_fieldName()+8show cd btn "down" at the right of fld k_fieldName()-9,the bottom of fld k_fieldName()-8end ifend toggleFastArrows</script>
  271. </card>
  272.  
  273.  
  274.